home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_mech2.scp < prev    next >
Text File  |  1994-11-20  |  3KB  |  196 lines
  1. { CMECHZA
  2.   ^ï╝        = 0
  3. }
  4.  
  5. { CMECHZB
  6.   ^ï╝        = 0
  7. }
  8.  
  9. { CMECH1A
  10.   ^ï╝        = 1
  11. }
  12.  
  13. { CMECH1B
  14.   ^ï╝        = 1
  15. }
  16.  
  17. { INELC
  18.   ^ï╜              = $Ç╝  
  19. }
  20.  
  21. { OUTELC
  22.   ^ï╜              = $Ç╗   
  23. }
  24.  
  25.  
  26. // READ_MECHO2 INITIALIZES MECHO2'S A.I.
  27. // IT SHOULD BE CALLED ONCE FROM THE ELC_LOAD CODE.
  28.  
  29. { READY_MECHO2
  30.  
  31.     I ( ^ï╛           = $Ç╗    ) THEN
  32.         é     
  33.  
  34.     I  @Ç¢              ( MECHO2 ) = $Ç╗    THEN
  35.         {
  36.         Q      ("&&& CAN'T FIND MECHO2 &&&");
  37.         é     
  38.         }
  39.  
  40.     è          ON
  41.     ┬             
  42.     A  ON
  43.  
  44.     Y                 ELC1 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
  45.  
  46.     ö     MECHO2
  47.     G     POSMECH2
  48.     £     CMECH1A
  49.  
  50.     Z       CURFIG ON
  51.     r          CURFIG ON
  52.  
  53.     M      STAND CONTINUE
  54. }
  55.  
  56. { MECHO2_AI
  57.  
  58.     :TOP
  59.  
  60.     â      
  61.  
  62.     I ( ^ï╝        = 0 ) THEN
  63.         J    #Çê
  64.  
  65.     I ( ^ï╜              ) AND ( ^䃠       = $é╗       ) THEN
  66.         J    #Çê
  67.  
  68.     ^ïÜ            = @üì            `üÜ               $üâ       "Halt, prisoner!"
  69.     ^ïÖ            = @Çÿ            ( `üÜ               )
  70.  
  71.     ┴            
  72.     M      FIRE_GUN
  73.     ┴            
  74.  
  75.     I ( ^ï╜              = $Ç╗    )  THEN   // RAPID FIRE
  76.         {
  77.         M      FIRE_GUN
  78.         M      FIRE_GUN
  79.         J    #Çê
  80.         }
  81.     E   
  82.         {
  83.         W    55
  84.         J    #Çê
  85.         }
  86.  
  87. }
  88.  
  89. { MECHO2_STIMULUS( _DAMAGE )
  90.  
  91. :GOT_HIT
  92.  
  93.     I ( @Çó            ( ^ïÜ            ) == $Ç╝   ) THEN
  94.         {
  95.                 ( ^ïÖ           )
  96.         }
  97.  
  98.     é     
  99.  
  100. :PLAYER_ENERGY_DAMAGE
  101.  
  102. //      IF( @ISPROCESSVALID( _SUBTITLE_HAND ) == _TRUE ) THEN
  103. //              {
  104. //              STOPSOUND( _ENEMY_SPEECH )
  105. //              }
  106.  
  107. //      AI OFF
  108. //      _SUBTITLE_HAND = @SUBTITLE _MECHO_VOX_HELLO2 _STCLEX "Do not move or you will be shot."
  109. //      _ENEMY_SPEECH = @GETSOUNDHANDLE( _MECHO_VOX_HELLO2 )
  110. //      @CALL PAUSE_FOR_SUBTITLE
  111. //      AI ON
  112.     é     
  113.  
  114. :KILLED_PLAYER
  115.     I ( ^ï╛           = $Ç╗    ) THEN
  116.         é     
  117.  
  118.     A  OFF
  119.     ┴            
  120.     W    1 SECONDS
  121.  
  122.     //@@@
  123.                 @Ç║       `ü£                $üâ       "Unit 11 to Security..."
  124.                 @Ç║       `ê╖                $üâ       "Prisoner disabled.~Medical assistance required."
  125. }
  126.  
  127. { MECHO2_DEATH
  128.  
  129.     @Çì      LEXTAUNTSMECHO2
  130.  
  131.     @Ç¢              (MECHO2)
  132.     ^ï╛           = $Ç╗   
  133.     @Çå   ( `ǽ         )
  134.     Ü            ( 20,20,20, 1 )
  135.     ú             ( BOOM, BLUEC, CURFIG )
  136.     K    CURFIG
  137.     l       CURFIG
  138. }
  139.  
  140. { LEXTAUNTSMECHO2
  141.  
  142.     @Ç¢              (PLAYER)
  143.     A  OFF
  144.     è          OFF
  145.     G  ECENTER 20 WALK
  146.     £    FMRN5 GRADUAL
  147.     M      TAUNT3 CONTINUE
  148.     @Çì      GROWL 5
  149.     //@@@
  150.                 @Ç║       `çÖ               "Eat light you stupid machine!"
  151.     M      STAND CONTINUE
  152.     â      
  153.     A  ON
  154. }
  155.  
  156. { LASER_HIT_MECHO2
  157.  
  158.     P        ~ÇÇ  
  159.  
  160.     @Çå   ( `Çí         )
  161.     ú             ( BOOM, PING, CURITEM )
  162.  
  163.     M      LASER_RECOIL
  164.  
  165.     I  .ÇéÇÇ        > 0 THEN
  166.         {
  167.         D      ENERGY 30
  168.         }
  169. }
  170.  
  171. { MECHO2_FIRE
  172.     // THIS FLAG IS USED TO TRIIGER A JOURNAL ENTRY
  173.     ^ï┐           = $Ç╝  
  174.  
  175.     // MECHO WILL FIRE A LASER FROM HIS LIMB NAMED 'GUN'
  176.     Ü            ( 0,0,8, 1 )
  177.                 @Ç╣          BOLTBLU GUN 10 225 (0,0,0)
  178. }
  179.  
  180. { KILL_MECHO2   // CALLED AT END OF OPERATING ROOM SCENE
  181.  
  182.     I ( ^ï╛           = $Ç╗    ) THEN
  183.         é     
  184.  
  185.     I  @Ç¢              ( MECHO2 ) = $Ç╗    THEN
  186.         {
  187.         Q      ("&&& CAN'T FIND MECHO2 &&&");
  188.         é     
  189.         }
  190.  
  191.     K   
  192.  
  193. }
  194.  
  195. //$ 26 - version number
  196.